home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / BASIC / LIB / EVENTSHELL / SLIDERS / !Sliders / !Sliders (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-10-01  |  4KB  |  116 lines
  1.  > <Sliders$Dir>.!Sliders
  2. $;" at line "+
  3.  "<EvntShell$Path>ShellLibRT"
  4. shell_FatalError
  5.  "Hourglass_On"
  6.  "Wimp_SlotSize",-1,-1 
  7.  progsize%
  8. pagesize%=1<<10
  9. freespace%=&8000+progsize%
  10. =freespace%+pagesize%
  11. =freespace%
  12. shell_HeapManagerInit("<EvntShell$Path>",freespace%)
  13. shell_Init
  14. *task%=
  15. shell_WimpInit_I(200,"Sliders")
  16. shell_TraceInit("")
  17.  PROCshell_TraceOn
  18. shell_ResourcesInit
  19. app_init
  20.  -------------------- Initialise Variables ----------------------------
  21. G_closedown%     =
  22.  Set this to TRUE when you want the program to
  23. !                       :
  24.  -------------------- Miscelleanous Initialisation --------------------
  25.  "Hourglass_Off"
  26. shell_Error
  27. shell_Action(
  28. shell_Poll_I(0,task%))
  29.  _closedown%
  30.  PROCshell_EvntSave_AllEvnts( "<Sliders$Dir>.EvntData" )
  31. shell_Exit:
  32.  ======================================================================
  33. app_init
  34. SetUp_Windows
  35. SetUp_Menus
  36. SetUp_IconBar
  37.  ===== Menu_Setup routines ======================================
  38. SetUp_Menus
  39.  void%
  40. ;UMenuHandle_IconBar%=
  41. shell_MenuNew(
  42. shell_MessageNoArgs("MTIBar"),"Menu_IBar",2 )
  43. <IMenuItem_Info%     =
  44. shell_MenuAdd(0,
  45. shell_MessageNoArgs("Info"),"")
  46. =Yvoid%              =
  47. shell_MenuAdd(0,
  48. shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
  49. shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
  50.  ===== Window_SetUp routines ====================================
  51. SetUp_Windows
  52. shell_CreateWindowStatic("mainw",mainw%)
  53. shell_CreateWindowStatic("mainw2",mainw2%)
  54. H9s1% = 
  55. shell_AttachSliderHandler(mainw%,2,3,4,6,7,"")
  56. JKs2% = 
  57. shell_AttachSliderHandler(mainw2%,1,2,-1,-1,-1,"_Slider_MainW2")
  58. KKs3% = 
  59. shell_AttachSliderHandler(mainw2%,4,5,-1,-1,-1,"_Slider_MainW3")
  60. LKs4% = 
  61. shell_AttachSliderHandler(mainw2%,7,8,-1,-1,-1,"_Slider_MainW4")
  62. MMs5% = 
  63. shell_AttachSliderHandler(mainw2%,10,11,-1,-1,-1,"_Slider_MainW5")
  64. shell_SliderSetValue( s1%, 80 )
  65. shell_SliderSetValue( s5%, 50 )
  66. _test_FN( font_handle% )
  67.  99,"Font change detected: font handle is:& "+
  68. ~font_handle% 
  69.  ===== IconBar_SetUp routines ===================================
  70. SetUp_IconBar
  71. ]Ssicon=
  72. shell_Iconbar(-1,"!"+
  73. shell_GetAppName,"",120,MenuHandle_IconBar%,0,0,0)
  74. shell_AttachHelpTag(-1,sicon,"iconbar")
  75. shell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
  76.  ===== Dialog_PreOpen routines ==================================
  77. _PreOpenInfo(wh%)
  78. shell_IconPutData(wh%,0,
  79. shell_MessageNoArgs("progInfo0"),0)
  80. shell_IconPutData(wh%,1,
  81. shell_MessageNoArgs("progInfo1"),0)
  82. shell_IconPutData(wh%,2,
  83. shell_MessageNoArgs("progInfo2"),0)
  84. shell_IconPutData(wh%,3,
  85. shell_MessageNoArgs("progInfo3"),0)
  86.  ===== Dialog_PostOpen routines =================================
  87.  ===== Click_Select routines ====================================
  88. _ClickSelect_IconBar(wh%,icon%)
  89. shell_OpenWindowStatic(mainw%)
  90. shell_OpenWindowStatic(mainw2%)
  91.  ===== Click_Adjust routines ====================================
  92.  ===== Menu_Select routines =====================================
  93. _MenuSelect_Quit(blk%)
  94. _closedown%=
  95.  ===== Menu_Warning routines ====================================
  96.  ===== Data_Load routines =======================================
  97.  ===== Data_Save routines =======================================
  98.  ===== Slider Handling routines =================================
  99. _Slider_MainW1(val%)
  100. shell_Tracef0("_Slider_MainW1: value change ("+
  101.  val%+")")
  102. _Slider_MainW2(val%)
  103. shell_Tracef0("_Slider_MainW2: value change ("+
  104.  val%+")")
  105. _Slider_MainW3(val%)
  106. shell_Tracef0("_Slider_MainW3: value change ("+
  107.  val%+")")
  108. _Slider_MainW4(val%)
  109. shell_Tracef0("_Slider_MainW4: value change ("+
  110.  val%+")")
  111. _Slider_MainW5(val%)
  112. shell_Tracef0("_Slider_MainW5: value change ("+
  113.  val%+")")
  114.  ===== User application routines ================================
  115.  ================= End Of User Application ======================
  116.